\|\\;				Define Brick Character
\;
\⊂'000040;\;	VERREM - REM's syntax for defining macros with args 
\;
\	;\←'0;\→G\;	footnote numbers in notes
\	;\←'0;\→N\;	footnote numbers in text
\;	                Citation and Reference Macros
\;
\8CIT1(1)[\"[\!CIT(⊗1⊗);\"]]\;
\8CIT1B(1,LOC)[\"[\!CIT(⊗1⊗);,⊗LOC⊗\"]]\;
\8CIT2(1,2)[\"[\!CIT(⊗1⊗);,\!CIT(⊗2⊗);\"]]\;
\8CIT3(1,2,3)[\"[\!CIT(⊗1⊗);,\!CIT(⊗2⊗);,\!CIT(⊗3⊗);\"]]\;
\8CIT4(1,2,3,4)[\N
\	;\"[\!CIT(⊗1⊗);,\!CIT(⊗2⊗);,\!CIT(⊗3⊗);,\!CIT(⊗4⊗);\"]]\;
\8CIT5(1,2,3,4,5)[\N
\	;\"[\!CIT(⊗1⊗);,\!CIT(⊗2⊗);,\!CIT(⊗3⊗);,\!CIT(⊗4⊗);,\N
\	   ;\!CIT(⊗5⊗);\"]]\;
\8CIT6(1,2,3,4,5,6)[\N
	;\"[\!CIT(⊗1⊗);,\!CIT(⊗2⊗);,\!CIT(⊗3⊗);,\!CIT(⊗4⊗);,\N
\	   ;\!CIT(⊗5⊗);,\!CIT(⊗6⊗);\"]]\;
\8CIT7(1,2,3,4,5,6,7)[\N
\	;\"[\!CIT(⊗1⊗);,\!CIT(⊗2⊗);,\!CIT(⊗3⊗);,\!CIT(⊗4⊗);,\N
\	   ;\!CIT(⊗5⊗);,\!CIT(⊗6⊗);,\!CIT(⊗7⊗);\"]]\;
\8CIT8(1,2,3,4,5,6,7,8)[\N
\	;\"[\!CIT(⊗1⊗);,\!CIT(⊗2⊗);,\!CIT(⊗3⊗);,\!CIT(⊗4⊗);,\N
\	   ;\!CIT(⊗5⊗);,\!CIT(⊗6⊗);,\!CIT(⊗7⊗);,\!CIT(⊗8⊗);\"]]\;
\8CIT9(1,2,3,4,5,6,7,8,9)[\N
\	;\"[\!CIT(⊗1⊗);,\!CIT(⊗2⊗);,\!CIT(⊗3⊗);,\!CIT(⊗4⊗);,\N
\	   ;\!CIT(⊗5⊗);,\!CIT(⊗6⊗);,\!CIT(⊗7⊗);,\!CIT(⊗8⊗);,\N
\	   ;\!CIT(⊗9⊗);\"]]\;
\;
\8OBIND(N,A)[\oPSH[⊗A⊗]\∂⊗N⊗←PSH;]\;
\8OPOP(N)[\∂PSH←⊗N⊗;\∂←PSH;]\;
\;
\8FMTREF(I,TXT)[\QL\Qt\P\!OBIND(AA,(0⊗I⊗));\;
\     ;\1AA;\→t\2AA;\+t\→t\+L\→L\-t\→.⊗I⊗\J⊗TXT⊗\.
\     ;\!OPOP(AA);\p\qt\qL]\;
\;
\8MKREFTAG(I)[\N
\	;\P\Q0\N			save ac and reg 0
\	;\←=⊗I⊗;\N			
\	;\→0\N				store in 0
\	;\←=9;\N			subtract 9
\	;\¬0\N				
\	;\!COMPAC;\N			complement ac
\	;\?EVAL(( ));\N		print leading space
\	;[⊗I⊗]  \N
\	;\q0\p]\;
\;
\8REF(NAME,TEXT)[\N
\	;\!INCR(CURREF);\N		increment CURREF
\	;\!EVAL((\∞REFNUM)\!CURREF;([)⊗NAME⊗(]));\N
\	;\N				name of current reference
\	;\!EVAL((\∞)⊗NAME⊗(CITNUM[0]));\N
\	;\N				init citation number
\	;\!EVAL((\∞)⊗NAME⊗(REFTEXT[⊗TEXT⊗]));\N
\	;\N				store reference text
\N\	;\!CIT(⊗NAME⊗);\N		***debug
\	;]\;
\;
\8NTHREF(NUM)[\!REFNUM⊗NUM⊗;]\;
\;
\8CIT(NAME)[\N
\	;\!EVAL((\←=)\!CITNUM(⊗NAME⊗);(;));\N	get number of citation
\	;\!COMPAC;\N				complement ac
\	;\?DEFCURCIT(⊗NAME⊗);\N			assign new cit numb
\N\	;\!EVAL((\m{)\A=13;\A=10;(}));\N	***debug
\N\	;\m{⊗NAME⊗ }\N				***debug
\N\	;\!EVAL((\m{)\!CURNUM(⊗NAME⊗);(}));\N	***debug
\	;\!CITNUM(⊗NAME⊗);\N			print out cit numb
\	;]\;
\;
\8DEFCURCIT(NAME)[\N		increment CURCIT and assign to name
\	;\!INCR(CURCIT);\N			increment CURCIT
\	;\!EVAL((\∞)⊗NAME⊗(CITNUM[)\!CURCIT;(]));\N
\	;\N					assign to name
\	;\!EVAL((\∞CITNUM)\!CURCIT;([)⊗NAME⊗(]));\N
\	;]\;
\;
\8CITNUM(NAME)[\!⊗NAME⊗CITNUM;]\;
\;
\8NTHCIT(NUM)[\!CITNUM⊗NUM⊗;]\;
\;
\8REFTEXT(NAME)[\!⊗NAME⊗REFTEXT;]\;
\;
\∞PRINTREFS[\N
\	;\P\QT\N
\	;\←=0;\→T\N
\	;\!LOADAC(CURCIT);\N
\	;\IPRINTREF;\N
\	;\qT\p]\;
\;
\∞PRINTREF[\N
\	;\-=1;\N
\	;\P\N
\	;\←T\+=1;\→T\N
\	;\!FMTREF(\!MKREFTAG(\DT);,\!REFTEXT(\!NTHCIT(\DT);););\N
\	;\p]\;
\;
\∞CHECKREFS[\N
\	;\P\QT\N
\	;\←=0;\→T\N
\	;\!LOADAC(CURREF);\N
\	;\ICHECKREF;\N
\	;\qT\p]\;
\;
\∞CHECKREF[\N
\	;\-=1;\N
\	;\P\N
\	;\←T\+=1;\→T\N
\	;\!EVAL((\←=)\!CITNUM(\!NTHREF(\DT););(;));\N
\	;\N				load ac with citnum
\	;\!COMPAC;\N
\	;\?EVAL((\m{)\A=13;\A=10;(}));\N
\	;\?EVAL((\m{)\!NTHREF(\DT);( unreferenced)(}));\N
\	;\p]\;
\;
\;\∞FN[\P\←N\+=1;\→N\∩\#\F7\DN\G\⊗\p]\;
\;
\;\8NOTE(TXT)[\P\←G\+=1;\→G\!FMTREF(\DG,(⊗TXT⊗));\p]\;
\;